Holt Researcher: American History/Holt Researcher: American History.iso/pc/modules/results.dxr/00001_global movie script.ls

Text File | 2000-01-31 | 791 b | 28 lines

on startMovie
  set the textHeight of member "results field" to 14
end

on setSearchResultsList titles, hitList, criteria
  global gResultsClassObj
  if count(hitList) = 0 then
    put "— No items found in search —" into field "results field"
    beep()
  else
    if the last char in titles = RETURN then
      delete char -30000 of titles
    end if
    put titles into field "results field"
  end if
  if count(hitList) < 25 then
    repeat with i = count(hitList) to 25
      put RETURN after field "results field"
    end repeat
  end if
  put string(hitList) into field "hitList field"
  put criteria into field "criteria field"
  if objectp(gResultsClassObj) then
    adjustScrollbar(getScrollbarObj(gResultsClassObj))
    disable(getOpenButtonObj(gResultsClassObj))
  end if
end